
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[EBAS_SP_SLET_FAG]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[EBAS_SP_SLET_FAG]
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO

CREATE PROCEDURE [DBO].[EBAS_SP_SLET_FAG] 
	@session varchar(255),
	@fagGuid varchar(255)
WITH ENCRYPTION
AS
	DECLARE @rettighed int,
		@antal int, 
		@guid uniqueidentifier,
		@karakterSkalaGuid uniqueidentifier,
		@bogpakkeGuid uniqueidentifier
	
	SET NOCOUNT ON
	SET @antal = 0
	SET @bogpakkeGuid = NULL

	CREATE TABLE #temp ( rett int )
	INSERT INTO #temp (rett)
	EXEC EBAS.DBO.EBAS_SP_SIKKERHED_VERIFICER_SESSION @session	

	SET @rettighed = (SELECT IsNull(MAX(rett),0) FROM #temp)
	
	IF 8 <= @rettighed 
	BEGIN
		DELETE FROM EBAS_FAG
		WHERE GUID = @fagGuid
		
		SELECT 1
	END
	ELSE
		SELECT 	F.GUID AS GUID, F.NAVN, F.BOGPAKKE_GUID, 
			F.KARAKTER_SKALA_GUID, S.NAVN AS KARAKTER_SKALA,
			0 AS ANTAL
		FROM 	EBAS_FAG F, EBAS_KARAKTER_SKALA S
		WHERE 	F.KARAKTER_SKALA_GUID = S.GUID
		AND 	F.GUID IS NULL

GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO
